' string art mod mga.bas  SmallBASIC 0.12.2 [B+=MGA] 2016-03-08
' orig ? S Shaw, 2013 by way of Johnno on SB forum

RANDOMIZE timer
dim ab(29,1)
for i=0 to 29
  read ab(i,0),ab(i,1)
next
' 30 nice a,b combos
data 11,7 , 6,3 , 12,9 , 4,2 , 2,9 , 3,4 , 12,3, 9,3 , 7,6 , 5,5
data 13,1 , 7,3 , 9,11 , 10,3, 7,1 , 1,9 , 9,2 , 3,8 , 8,10, 2,4
data 8,5  , 10,7, 27,9 , 2,3 , 3,4 , 4,10, 1,3 , 9,5 , 6,9 ,22,1

th=txth("Q")
cy=ymax/2
cx=xmax/2 
scale=min(cy,cx)-2*th:a=9:b=6:dta=0
while 1
  for i= 0 to 360
    t=i*pi/180.0
    x=cos(t) : y=sin(t)
    x2=cos(a*t) : y2=sin(b*t)
    line x*scale+cx,y*scale+cy,x2*scale+cx,y2*scale+cy
  next
  s="a="+str(a)+" b="+str(b)
  s=s+" x=exit n=nice r=random g=globe"
  at (xmax-txtw(s))\2,0:?s
  repeat 
    ink=inkey
    ink=upper(ink)
    delay 20
  until ink<>"" and instr("XQNRG",ink)>0 'aha! instr("anything","")=1
  cls
  dta++
  if dta>=30 then dta=0
  IF ink="N" THEN
    a=ab(dta,0) : b=ab(dta,1)
  elif ink="R"
    a=rnd*30\1+1 : b=rnd*30\1+1
  elif ink="X" or ink="Q"
    end
  elif ink="G"
    a=dta:b=dta
  end if
  ink=""
wend